home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / CBGRX103.ZIP / contrib / libgrx / test / arctest.c next >
Text File  |  1993-12-06  |  2KB  |  51 lines
  1. /**
  2.  ** POLYTEST.C
  3.  **
  4.  **  Copyright (C) 1992, Csaba Biegl
  5.  **    820 Stirrup Dr, Nashville, TN, 37221
  6.  **    csaba@vuse.vanderbilt.edu
  7.  **
  8.  **  This file is distributed under the terms listed in the document
  9.  **  "copying.cb", available from the author at the address above.
  10.  **  A copy of "copying.cb" should accompany this file; if not, a copy
  11.  **  should be available from where this file was obtained.  This file
  12.  **  may not be distributed without a verbatim copy of "copying.cb".
  13.  **  You should also have received a copy of the GNU General Public
  14.  **  License along with this program (it is in the file "copying");
  15.  **  if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16.  **  Cambridge, MA 02139, USA.
  17.  **
  18.  **  This program is distributed in the hope that it will be useful,
  19.  **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20.  **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21.  **  GNU General Public License for more details.
  22.  **/
  23.  
  24. #include "test.h"
  25. #include <string.h>
  26.  
  27. TESTFUNC(arctest)
  28. {
  29.     char buff[300];
  30.     int  xc,yc,xa,ya,start,end;
  31.     FILE *fp;
  32.  
  33.     fp = fopen("arctest.dat","r");
  34.     if(fp == NULL) return;
  35.     while(fgets(buff,299,fp) != NULL) {
  36.         if(sscanf(buff,
  37.               "arc xc=%d yc=%d xa=%d ya=%d start=%d end=%d",
  38.               &xc,&yc,&xa,&ya,&start,&end) == 6) {
  39.         GrClearScreen(GrBlack());
  40.         GrFilledEllipse(xc,yc,xa,ya,GrAllocColor(0,0,255));
  41.         GrEllipseArc(xc,yc,xa,ya,start,end,GrWhite());
  42.         getkey();
  43.         GrClearScreen(GrBlack());
  44.         GrFilledEllipseArc(xc,yc,xa,ya,start,end,GrAllocColor(255,0,0));
  45.         getkey();
  46.         }
  47.     }
  48.     fclose(fp);
  49. }
  50.  
  51.